Aminet 15/Aminet 15 - Nov 1996.iso/Aminet/util/time/EZCron.lha/EZCronGUI

Text File | 1996-09-12 | 31.0 KB | 1,096 lines

/* EZCronGUI v1.7 by Jim Hines. ©1995-96 All Rights Reserved.
** Internet email me at <[e-mail]>
** EZCronGUI is The Graphic User Interface for EZCron, ©1994-1996 Jim Hines.
**
** 12-13-95 Added Speech Function to test subrtn.
** 12-22-95 Added Purge Function.
** 12-24-95 Added multi-windowing on prefs window
** 12-31-95 Added multi-windowing cyclegads on time and date fields
**             Changed the main gui interface window and moved the new config
**            button to the edit screen. Removed the Quik Add button altogether.
** 01-05-96 Added Weekdays, Weekends and Quarterly support.
**             Added full online help subroutine.
** 01-07-96 Added Default Event Variable Handling. Opens prefs file at beginning
**            and rereads it with the 'addefault' command.
**            added online help for def event button.
** 08-25-96 Changes the cron.config file to reside in envarc: and RAM:ENV
**            Great idea Paul. ;)
** 09-02-96 Moved the active config file to ram:t as the env: was causing HD
**          activity with such programs as HDEnv. The cron.config is now BACK
**            in s: but copied to t:
** 09-09-96 Started work on the range stuffs
** 09-10-96 Hourly time range routine added.
** 09-11-96 Fixed a few bugs and tightened the code up a bit.
*/

LF= '0a'x
options results

address command 'copy s:cron.config t:'

    if ~show("L","rexxsupport.library") then
           call addlib("rexxsupport.library", 0, -30)

    if ~show('L','rexxreqtools.library') then
           call addlib("rexxreqtools.library", 0, -30, 0)

    if ~showlist( 'p', 'VAREXX' ) then do
           address command 'run >nil: varexx'
        call delay(25)
        waitforport
        waitforport
    end

    address VAREXX
    call openport("MAINWINPORT")
    load 'EZCron:EZC.gui MAINWINPORT'
    host = result
    address value host
    show project0

startup:

    if showlist('P', 'EZCRON_REXX') then do
        settext text '"EZCron Daemon is Running"'
    end

    if ~showlist('P', 'EZCRON_REXX') then do
        settext text '"EZCron Daemon is NOT Running"'
    end

/* ===== MAIN LOOP =======*/
mainloop:

    do forever    /* Wait for the user to close the window */
        settext datewin Date(USA)
        setlist eventlist clear  /* CLEAR THE LISTVIEW WINDOW */


/* ===== READ AND PARSE THE CONFIG FILE ===== */

        config = 's:cron.config'        /* Name of file for reading events from */
        event. = 0

        if ~open(cronfile, config,'READ') then do
            call message('No s:cron.config file present....exiting.')
            exit 20
        end

        errors = 0

        do until eof(cronfile)
            /* Grab the line, parse the event and ignore the comments */
            linein = readln(cronfile)
            parse var linein line '#'

            next = event.0 + 1

            parse var line event.next.command event.next.pargs1 event.next.pargs2,
            event.next.pargs3 event.next.pargs4 event.next.time event.next.date,
            event.next.rng1 event.next.rng2 event.next.sfx event.next.txt

            event.next.date = translate(event.next.date, 'abcdefghijklmnopqrstuvwxyz',,
                            'ABCDEFGHIJKLMNOPQRSTUVWXYZ')
                            /* THE ABOVE TRANSLATES THE DATE TO LOWERCASE IF NOT NUMERIC */

            event.next.time = translate(event.next.time, 'abcdefghijklmnopqrstuvwxyz',,
                            'ABCDEFGHIJKLMNOPQRSTUVWXYZ')
                            /* THE ABOVE TRANSLATES THE TIME TO LOWERCASE IF NOT NUMERIC */


            if line ~= '' then do  /* This keeps the commented out lines from appearing */
                setlist Eventlist event.next.command event.next.pargs1 event.next.pargs2 event.next.pargs3 event.next.pargs4 event.next.time event.next.date event.next.txt '************************'
            end

            select
                when event.next.command = '' then iterate
                when event.next.command = '' then do
                    iterate
                end
                otherwise event.0 = next
            end
        end                                /* end of: do until EOF */
        call close(cronfile)

/* =====END OF PARSE SECTION == */

        do forever  /* THIS DO LOOP CONTROLS THE CLOCK AND CHECKS FOR A PACKET */
            packet = getpkt( "MAINWINPORT" )
            clock2 = LEFT(time('N'),5)    /* THIS GET RID OF THE SECONDS */
            sec = right(time('N'), 2)  /* Get Seconds */
            settext time time('N')
            settext datewin Date(USA)
            call delay(48)

            if packet ~= '00000000'x then do /* This is not a null message */
                class  = getarg(packet)    /* Get the information about the message */
                    type = word(class, 1)
                    msg = substr(class, 1,9)
                call classes()
            end
        end


classes:

/* =====CLASS CLOSEWINDOW ===== */
        if class = closewindow then do
            settext text 'Exiting EZCron'
            call exiting()
        end

/* =====CLASS PAGEEDIT ===== */
        if class = pageedit then call eventedit()


/* =====CLASS AC_TOGGLE ===== */

        if class = AC_Toggle then do
            if ~showlist('P', 'EZCRON_REXX') then do
                address command 'run >nil: rx >nil: EZCron start'
                waitforport
                settext text '"EZCron Daemon is running."'
                call mainloop()
            end
            else
                if showlist('P', 'EZCRON_REXX') then do
                address command 'run >nil: rx >nil: EZCron stop'
                busy set /* Turn on busy pointer */

                do until ~showlist('P', 'EZCRON_REXX')
                    sec2 = 60 - right(time(n), 2) /* 60 (seconds) minus sec2) */
                    if sec2 = 60 then sec2 = 00
                    settext text '"Exiting daemon in:"' sec2 'seconds.'
                    settext time time(n)
                    call delay(49)
                end
                settext text '"EZCron Daemon is NOT Running"'
            end
        busy /* Turn off Busy Pointer */
        call mainloop()
        end
    end         /* End of first big do forever loop */

/* ===== EDITEVENT SUBROUTINE ========= */

eventedit:
    hide
    show editwindow
    set sortgad blankgad1 disable

eventparse:
    address value host  /* this is so the correct window's buttons work after closing other windows */
    drop ev et ed arg1 arg2 arg3 arg4 sfx txt field /* this drops any variables that may be present */

    do forever
        setlist selectevent clear
        config = 's:cron.config'    /* Name of file for reading events from */
        event. = 0

        if ~open(cronfile, config,'READ') then do
            call message('No s:cron.config file present....exiting.')
            exit 20
        end

        errors = 0
        do until eof(cronfile)
            linein = readln(cronfile)
            parse var linein line '#'
            next = event.0 + 1

            parse var line event.next.command event.next.pargs1 event.next.pargs2,
            event.next.pargs3 event.next.pargs4 event.next.time    event.next.date,
            event.next.rng1 event.next.rng2 event.next.sfx event.next.txt

            event.next.date = translate(event.next.date, 'abcdefghijklmnopqrstuvwxyz',,
                            'ABCDEFGHIJKLMNOPQRSTUVWXYZ')
                            /* THE ABOVE TRANSLATES THE DATE TO LOWERCASE IF NOT NUMERIC */

            event.next.time = translate(event.next.time, 'abcdefghijklmnopqrstuvwxyz',,
                            'ABCDEFGHIJKLMNOPQRSTUVWXYZ')
                            /* THE ABOVE TRANSLATES THE TIME TO LOWERCASE IF NOT NUMERIC */


            event.next.txt = strip(event.next.txt) /* This Gets rid of the leading & trailing spaces in the LAST variable
                                                      If new fields are added, the variable must be changed to reflect this */

            if line ~= '' then do  /* This keeps the commented out lines from appearing */
                setlist selectevent event.next.command
            end

            select
                when event.next.command = '' then iterate
                when event.next.command = '' then do
                    iterate
                end
                otherwise event.0 = next
            end
        end
        call close(cronfile)

/* ===== END OF PARSE  */

waitforpkt:
        call waitpkt( "MAINWINPORT" )    /* Wait for a message from Varexx */
        packet = getpkt( "MAINWINPORT" )        /* Get the message */

           if packet ~= '00000000'x then do /* This is not a null message */
            class  = getarg(packet)    /* Get the information about the message */
               type = word(class, 1)
               msg = substr(class, 12,100)
/*            say 'Message Var = ' msg           DEBUG STUFF
            say 'Class Var = ' class
            say 'Type Var = ' type
*/
/* ===== CLASS EXIT EDITOR ===== */
            if class = end then do /* This is the exit button */
                hide
                show project0
                call startup()
            end

/* ===== CLASS QUIT PROGRAM ===== */

            if class = closewindow then call exiting()

/* ===== CLASS MAINHELP CHECK ===== */

            if class = 'MAINHELP TRUE' then call mainhelp()


/* ===== CLASS PREFSGAD ===== */

            if class = prefsgad then do
                call openport(PREFSWINPORT)
                spawn PREFSWINPORT
                host2 = result
                address value host2
                show prefswindow
                call prefs()
            end

/* ===== CLASS EDIT ===== */
            if class = EDIT then do
                if ~exists('EZCron:prefs/txted.prefs') then address command 'ed s:cron.config'
                if exists('EZCron:prefs/txted.prefs') then do
                    open(edconfig, 'EZCron:prefs/txted.prefs', 'r')
                    linein = readln(edconfig)
                    address command linein 's:cron.config'
                    close(edconfig)
                    address command 'copy s:cron.config ram:t' /* 9-02-96 */
                end
            end

/* ===== CLASS TEST EVENT ===== */

            if class = testevent then do
                if exists('EZCron:prefs/sfx.prefs') then do
                    open(sfxconfig, 'EZCron:prefs/sfx.prefs', 'r')
                    sfxplayer = readln(sfxconfig)
                    close(sfxconfig)
                end

                read event
                ev = RESULT

                read arg1
                arg1 = RESULT
                if arg1 = '-' then arg1 = ''

                read arg2
                arg2 = RESULT
                if arg2 = '-' then arg2 = ''

                read arg3
                arg3 = RESULT
                if arg3 = '-' then arg3 = ''

                read arg4
                arg4 = RESULT
                if arg4 = '-' then arg4 = ''

                read sfx
                fx = RESULT
                if fx = '-' then fx = ''

                read txtstr
                tx = result

                if ev ~= textreminder then do
/*                    address command 'run >nil: 'ev arg1 arg2 arg3 arg4*/
                    address command 'run >con:100/100/300/100/CronTestEvent/Close' ev arg1 arg2 arg3 arg4
                end

                if fx ~= '' then do
                        address command 'run >nil:' sfxplayer fx
                end

                if ev = TEXTREMINDER then do
                    address command 'run >nil: rx >nil: ezcron:rexx/Reminder.rexx' tx
                    if showlist(h,SPEAK) then do
                        address command 'echo' tx '>speak:'
                    end
                end

                drop ev arg1 fx tx sfxplayer
            end

/* ===== CLASS GETFILE ===== */

            if class = getfile then do
                clock = time('N')
                clock2 = LEFT(clock,5)
                filename = rtfilerequest(, , "Pick a File To Run",OK, "rt_reqpos = reqpos_centerscr")
                settext event filename
                settext event_time clock2
                settext event_date Date(USA)
                settext arg1 '-'
                settext arg2 '-'
                settext arg3 '-'
                settext arg3 '-'
                settext rng1 '--'
                settext rng2 '--'
                settext sfx '-'
                settext txtstr '-'
            end

/* ===== CLASS NEW CONFIG ===== */
        if class = AC_New then do
            if exists('EZCron:prefs/cprefs') then do
                open(prefs, 'EZCron:prefs/cprefs', 'r')
                defevent = readln(prefs)
                close(prefs)
            end
            if ~exists('s:cron.config') then do
                    open(MkCfg, 's:cron.config',W)
                    writeln(MkCfg, defevent)
                    address command 'copy s:cron.config ram:t' /* 9-02-96 */
                    close(MkCfg)
            end
        else
            call rtezrequest("A cron.config file already exists."||LF||"Do you wish to overwrite it?.", "_Yes|_No", , "rt_reqpos = reqpos_centerscr")
            if rtresult == 1 then do
                if exists('s:cron.config.old') then address command 'delete s:cron.config.old'
                address command 'rename s:cron.config s:cron.config.old'
                call delay(3)
                open(MkCfg, 's:cron.config','w')
                writeln(MkCfg, defevent)
                close(MkCfg)
            end
                address command 'copy s:cron.config ram:t' /* 9-02-96 */
        end


/* ===== CLASS REQUESTER GADS ===== */

            if class = arg1gad then do
                argname = rtfilerequest(, , "Pick a file argument",OK, "rt_reqpos = reqpos_centerscr")
                if argname = '' then argname = '-'
                settext arg1 argname
            end

            if class = arg2gad then do
                argname = rtfilerequest(, , "Pick a file argument",OK, "rt_reqpos = reqpos_centerscr")
                if argname = '' then argname = '-'
                settext arg2 argname
            end

            if class = arg3gad then do
                argname = rtfilerequest(, , "Pick a file argument",OK, "rt_reqpos = reqpos_centerscr")
                if argname = '' then argname = '-'
                settext arg3 argname
            end

            if class = arg4gad then do
                argname = rtfilerequest(, , "Pick a file argument",OK, "rt_reqpos = reqpos_centerscr")
                if argname = '' then argname = '-'
                settext arg4 argname
            end

            if class = sfxgad then do
                read sfx
                sfxtxt = result
                parse var sfxtxt device ':'
                if device = '-' then device = 'sys'
                argname = rtfilerequest(device':',, "Pick a soundfile",OK, "rt_reqpos = reqpos_centerscr")
                if argname = '' then argname = '-'
                settext sfx argname
            end

            if class = txtgad then do
                read txtstr
                txt = result
                if txt = '-' then txt = ''
                argname = rtgetstring(txt,'Enter Reminder String', 'Reminder Requester', ,'rt_reqpos = reqpos_centerscr')
                if argname = '' then call eventparse()
                clock = time('N')
                clock2 = LEFT(clock,5)
                settext txtstr argname
                settext event TextReminder
                settext event_time clock2
                settext event_date Date(USA)
                settext arg1 '-'
                settext arg2 '-'
                settext arg3 '-'
                settext arg3 '-'
                settext sfx '-'
                drop txt
            end

            if class = datehelp then do
                call rtezrequest( " DATE HELP" || LF ||,
                " "    || LF ||,
                " These are possible date fields." || LF ||,
                " "    || LF ||,
                " "    || LF ||,
                " 01/01/95    * Run event once." || LF ||,
                " "    || LF ||,
                " Mon-Fri     * Run event every " || LF ||,
                "               named day of week." || LF ||,
                " "    || LF ||,
                " Daily       * Run event every day." || LF ||,
                " "    || LF ||,
                " Weekdays    * Run event every" || LF ||,
                "               Monday-Friday only." || LF ||,
                " "    || LF ||,
                " ", "More", ,)


                call rtezrequest( " DATE HELP" || LF ||,
                " "    || LF ||,
                " More possible date fields." || LF ||,
                " "    || LF ||,
                " "    || LF ||,
                " Weekend     * Run event every" || LF ||,
                "               Saturday & Sunday only." || LF ||,
                " "    || LF ||,
                " Monthly-12  * Run event every month" || LF ||,
                "               on given date. The date" || LF ||,
                "               is specified AFTER the" || LF ||,
                "               hyphen." || LF ||,
                " "    || LF ||,
                " Every_#_ddd * This could actually be" || LF ||,
                "               typed as Every_3_Wed." || LF ||,
                "               This example would" || LF ||,
                "               execute an event every" || LF ||,
                "               3rd Wed. of the month." || LF ||,
                "               The '#' can be 1-5." || LF ||,
                "               The 'ddd' is a three" || LF ||,
                "               letter abbr. for day" || LF ||,
                "               of the week." || LF ||,
                " ", "Okay", ,)
            call eventparse()
            end


            if class = timehelp then do
                call rtezrequest( " TIME HELP" || LF ||,
                " "    || LF ||,
                " These are possible time fields." || LF ||,
                " "    || LF ||,
                " "    || LF ||,
                " 14:40     * Run event at 2:40pm." || LF ||,
                " "    || LF ||,
                " Minute    * Run event once every" || LF ||,
                "             minute." || LF ||,
                " "    || LF ||,
                " Hourly    * Run event every hour" || LF ||,
                "             on the hour." || LF ||,
                " "    || LF ||,
                " Quarterly * Run event every 15" || LF ||,
                "             minutes." || LF ||,
                " ", "Okay", ,)
            call eventparse()
            end

            if class = rangehelp then do
                call rtezrequest( " RANGE HELP" || LF ||,
                " "    || LF ||,
                " This allows events to run within a time range." || LF ||,
                " Valid ranges could be:" || LF ||,
                " 18 - 24 for events from 6pm to midnight." || LF ||,
                " 00 - 05 for events from midnight to 5am." || LF ||,
                " " || LF ||,
                " See Docs for more detailed infomation." || LF ||,
                " ", "Okay", ,)
            call eventparse()
            end


            if class = datefields then do
                call openport(DATEWINPORT)
                spawn DATEWINPORT
                host3 = result
                address value host3
                show datewindow
                call datefields()
            end

            if class = timefields then do
                call openport(TIMEWINPORT)
                spawn TIMEWINPORT
                host4 = result
                address value host4
                show timewindow
                call timefields()
            end

/* ===== CLASS PURGE EVENT ===== */
            if class = purgegad then do

                address command 'copy s:cron.config s:cron.config.old'
                address command 'delete s:cron.config'
                open(dfile, 's:cron.config', 'W') /* create it again*/
                address command 'copy s:cron.config ram:t' /* 9-02-96 */
                close(dfile)

                do i = 1 to event.0
                    /*say event.i.date*/
                    parse var event.i.date month '/' day '/' year

                    if day ~= '' & if year ~= '' then do
                        sortdate = '19'year''month''day
                        eventdate = date('c',sortdate,'s')        /* number of days since..*/

                        currentdate = date(s) /* 19951221 */
                        sortcurrent = date('c', currentdate, 's') /* number of days since..*/
                        a = sortcurrent-eventdate
                        /*say 'a equals =' a*/
                        if a > 0 then event.i.command = delete  /* this are the files you DONT want to write */
                    end

                    if event.i.command ~= delete then do
                        open(dfile, 's:cron.config', 'a')
                        writeln(dfile, event.i.command event.i.pargs1,
                        event.i.pargs2 event.i.pargs3 event.i.pargs4,
                        event.i.time event.i.date event.i.rng1,
                        event.i.rng2 event.i.sfx event.i.txt)
                        drop result
                    end
                    close(dfile)
                    address command 'copy s:cron.config ram:t' /* 9-02-96 */
                    drop total
                end
            end

/* ===== CLASS UPDATE (MODIFY) EVENT ===== */
            if class = update then do

                read event
                ev = result
                if ev = '' then call message('No Event Field.')
                if ev = '' then call eventparse()
                if ev = 'None Selected' then call message('No Event Field.')
                if ev = 'None Selected' then call eventparse()

                 event.en.command = ''
                event.en.time = ''
                event.en.date = ''
                event.en.pargs1 = ''
                event.en.pargs2 = ''
                event.en.pargs3 = ''
                event.en.pargs4 = ''
                event.en.rng1 = ''
                event.en.rng2 = ''
                event.en.sfx = ''
                event.en.txt = ''

                address command 'copy s:cron.config s:cron.config.old'
                address command 'delete s:cron.config'
                open(dfile, 's:cron.config', 'W') /* create it again*/
                close(dfile)
                address command 'copy s:cron.config ram:t' /* 9-02-96 */

                read selectevent var h
                open(dfile, 's:cron.config', 'a')
                do n = 1 to h.count
                    if event.n.time = '' then h.n = delete

                    if h.n ~= delete then
                    writeln(dfile, h.n event.n.pargs1 event.n.pargs2,
                    event.n.pargs3 event.n.pargs4 event.n.time,
                    event.n.date event.n.rng1 event.n.rng2,
                    event.n.sfx event.n.txt)
                    drop result
                end
                close(dfile)
                address command 'copy s:cron.config ram:t' /* 9-02-96 */

                read event
                ev = result
                if ev = '' then call message('No Event Field.')
                if ev = '' then call eventparse()
                if ev = 'None Selected' then call message('No Event Field.')
                if ev = 'None Selected' then call eventparse()

                read event_time
                et = result
                if et = '' then    call message('No Time Field.')

                read event_date
                ed = result
                if ed = '' then call message('No Date Field.')

                 read arg1
                arg1 = result
                if arg1 = '' then arg1 = '-'
                read arg2
                arg2 = result
                if arg2 = '' then arg2 = '-'
                 read arg3
                arg3 = result
                if arg3 = '' then arg3 = '-'
                read arg4
                arg4 = result
                if arg4 = '' then arg4 = '-'

                read rng1
                rng1 = result
                if rng1 = '' then rng1 = '--'

                read rng2
                rng2 = result
                if rng2 = '' then rng2 = '--'

                read sfx
                sfx = result
                if sfx = '' then sfx = '-'

                read txtstr
                txt = result
                if txt = '' then txt = '-'

                open(dfile, 's:cron.config', 'a')
                writeln(dfile, ev arg1 arg2 arg3 arg4 et ed rng1 rng2 sfx txt)
                close(dfile)
                drop ev et ed arg1 arg2 arg3 arg4 rng1 rng2 sfx txt
                address command 'copy s:cron.config ram:t' /* 9-02-96 */
            end



/* ===== CLASS ADDEVENT ===== */

            if class = addevent then do
                read event
                ev = result
                if ev = '' then call message('No Event Field.')
                if ev = 'None Selected' then call message('No Event Field.')

                read event_time
                et = result
                if et = '' then    call message('No Time Field.')

                read event_date
                ed = result
                if ed = '' then call message('No Date Field.')

                 read arg1
                arg1 = result
                if arg1 = '' then arg1 = '-'
                read arg2
                arg2 = result
                if arg2 = '' then arg2 = '-'
                 read arg3
                arg3 = result
                if arg3 = '' then arg3 = '-'
                read arg4
                arg4 = result
                if arg4 = '' then arg4 = '-'

                read rng1
                rng1 = result
                if rng1 = '' then rng1 = '--'

                read rng2
                rng2 = result
                if rng2 = '' then rng2 = '--'

                read sfx
                sfx = result
                if sfx = '' then sfx = '-'

                read txtstr
                txt = result
                if txt = '' then txt = '-'

                if ev = '' then call eventparse()
                if ev = 'None Selected' then call eventparse()
                if et = '' then call eventparse()
                if ed = '' then call eventparse()

                open(dfile, 's:cron.config', 'a')
                writeln(dfile, ev arg1 arg2 arg3 arg4 et ed rng1 rng2 sfx txt)
                close(dfile)
                drop ev et ed arg1 arg2 arg3 arg4 rng1 rng2 sfx txt
                address command 'copy s:cron.config ram:t' /* 9-02-96 */
            call eventparse()
            end


/* ===== CLASS ADDEFAULT EVENT ===== */

            if class = addefault then do
                read event
                ev = result
                if ev = '' then call message('No Event Field.')
                if ev = 'None Selected' then call message('No Event Field.')

                read event_time
                et = result
                if et = '' then    call message('No Time Field.')

                read event_date
                ed = result
                if ed = '' then call message('No Date Field.')

                 read arg1
                arg1 = result
                if arg1 = '' then arg1 = '-'
                read arg2
                arg2 = result
                if arg2 = '' then arg2 = '-'
                 read arg3
                arg3 = result
                if arg3 = '' then arg3 = '-'
                read arg4
                arg4 = result
                if arg4 = '' then arg4 = '-'

                read rng1
                rng1 = result
                if rng1 = '' then rng1 = '--'

                read rng2
                rng2 = result
                if rng2 = '' then rng2 = '--'

                read sfx
                sfx = result
                if sfx = '' then sfx = '-'

                read txtstr
                txt = result
                if txt = '' then txt = '-'

                if ev = '' then call eventparse()
                if ev = 'None Selected' then call eventparse()
                if et = '' then call eventparse()
                if ed = '' then call eventparse()

                address command 'delete ezcron:prefs/cprefs'
                open(dfile, 'ezcron:prefs/cprefs', 'w')
                writeln(dfile, ev arg1 arg2 arg3 arg4 et ed rng1 rng2 sfx txt)
                close(dfile)
                drop ev et ed arg1 arg2 arg3 arg4 rng1 rng2 sfx txt
            call eventparse()
            end


/* ===== SELECTEVENT ===== */

            if msg ~= '' & type = 'SELECTEVENT' then do

                settext event msg
                read selectevent NUMBER
                en = RESULT  /* en is the event number */
                /*say 'en = ' en*/

                settext event_time event.en.time
                settext event_date event.en.date
                settext arg1 event.en.pargs1
                settext arg2 event.en.pargs2
                settext arg3 event.en.pargs3
                settext arg4 event.en.pargs4
                settext rng1 event.en.rng1
                settext rng2 event.en.rng2
                settext sfx event.en.sfx
                settext txtstr event.en.txt

/*                say 'event.en.sfx =' event.en.sfx   DEBUG ROUTINES COMMENTED OUT
                say 'event.en.txt =' event.en.txt
                say 'event.0 = ' event.0
*/
            end

/* ===== CLASS DELETE EVENT ===== */

            if class = delete_event then do
                event.en.command = ''
                event.en.time = ''
                event.en.date = ''
                event.en.pargs1 = ''
                event.en.pargs2 = ''
                event.en.pargs3 = ''
                event.en.pargs4 = ''
                event.en.rng1 = ''
                event.en.rng2 = ''
                event.en.sfx = ''
                event.en.txt = ''

                address command 'copy s:cron.config s:cron.config.old'
                address command 'delete s:cron.config'
                open(dfile, 's:cron.config', 'W') /* create it again*/
                close(dfile)
                address command 'copy s:cron.config ram:t' /* 9-02-96 */

                read selectevent var h
                open(dfile, 's:cron.config', 'a')
                do n = 1 to h.count
                    if event.n.time = '' then h.n = delete

                    if h.n ~= delete then
                    writeln(dfile, h.n event.n.pargs1 event.n.pargs2,
                    event.n.pargs3 event.n.pargs4 event.n.time,
                    event.n.date event.n.rng1 event.n.rng2,
                    event.n.sfx event.n.txt)
                    drop result
                end
                close(dfile)
                address command 'copy s:cron.config ram:t' /* 9-02-96 */

                settext event 'None Selected'
                settext event_time 'NA'
                settext event_date 'NA'
                settext arg1 '-'
                settext arg2 '-'
                settext arg3 '-'
                settext arg3 '-'
                settext rng1 '--'
                settext rng2 '--'
                settext sfx '-'
                settext txtstr '-'

                call eventparse()
            end /* Above routine end */
        end        /* rexx portcheck end */
    end            /* do forever main loop end */
    exit        /* end of program....subs follow */




/* ===== SUB-ROUTINES START HERE ==== */

/* ===== PREFERENCES ===== */

prefs:
    set time_format date_format gadget42 disable
    call waitpkt( "PREFSWINPORT" )    /* Wait for a message from Varexx */
    packet = getpkt( "PREFSWINPORT" )        /* Get the message */

    if packet ~= '00000000'x then do /* This is not a null message */
        class  = getarg(packet)    /* Get the information about the message */
           type = word(class, 1)
               msg = substr(class, 12,100)
            /*say 'class =' class
            say 'msg =' msg*/    DEBUG STUFF

            if class = 'CLOSEWINDOW PrefsWindow' then do  /* This is strange */
                hide
                call eventparse()
            end

            if class = exitprefs then do
                hide
                call eventparse()
            end

            if class = texteditor then do
                editor = rtfilerequest(, , "Pick a text editor",OK, "rt_reqpos = reqpos_centerscr")
                if rtresult == 0 then call prefs() /*This get out of the edprefs function */
                open(edconfig,'EZCron:prefs/txted.prefs', 'w')
                writeln(edconfig, editor)
                close(edconfig)
                drop editor
            end

            if class = sfxplayer then do
                player = rtfilerequest(, , "Pick a sound player",OK, "rt_reqpos = reqpos_centerscr")
                if rtresult == 0 then call prefs() /*This get out of the edprefs function */
                open(edconfig,'EZCron:prefs/sfx.prefs', 'w')
                writeln(edconfig, player)
                close(edconfig)
                drop player
            end
            call prefs()
    end

/* ===== DATE FIELD REQUESTER ===== */

datefields:
    field = ''
    do forever
        call waitpkt( "DATEWINPORT" )    /* Wait for a message from Varexx */
        packet = getpkt( "DATEWINPORT" )        /* Get the message */

        if packet ~= '00000000'x then do /* This is not a null message */
            class  = getarg(packet)    /* Get the information about the message */
               type = word(class, 1)
            msg = substr(class, 11,25)

            if field = '' then field = date(usa)
            /*say 'field before the if string is' field*/
            if msg = '0' then field = Date(USA)
            if msg = '1' then field = 'Daily'
            if msg = '2' then field = 'Monthly-'right(date(S),2)  /* Monthly-13 */
            if msg = '3' then field = 'Sunday'
            if msg = '4' then field = 'Monday'
            if msg = '5' then field = 'Tuesday'
            if msg = '6' then field = 'Wednesday'
            if msg = '7' then field = 'Thursday'
            if msg = '8' then field = 'Friday'
            if msg = '9' then field = 'Saturday'
            if msg = '10' then field = 'Sunday'
            if msg = '11' then field = 'Weekdays'
            if msg = '12' then field = 'Weekend'
            if msg = '13' then field = 'Every_1_Mon'

            if class = 'CLOSEWINDOW DateWindow' then do
                hide
                address value host
                call eventparse()
            end

            if class = exitdate then do
                hide
                address value host
                call eventparse()
            end

            if class = okay then do
                hide
                address value host
                settext event_date field
                call eventparse()
            end
        end
    end

/* ===== TIME FIELD REQUESTER ===== */

timefields:
    field = ''
    do forever
        call waitpkt( "TIMEWINPORT" )    /* Wait for a message from Varexx */
        packet = getpkt( "TIMEWINPORT" )        /* Get the message */

        if packet ~= '00000000'x then do /* This is not a null message */
            class  = getarg(packet)    /* Get the information about the message */
               type = word(class, 1)
            msg = substr(class, 11,25)

            if field = '' then field = LEFT(time('N'),5)
            if msg = '0' then field = LEFT(time('N'),5)
            if msg = '1' then field = 'Minute'
            if msg = '2' then field = 'Hourly'
            if msg = '3' then field = 'Quarterly'

            if class = 'CLOSEWINDOW timewindow' then do
                hide
                address value host
                call eventparse()
            end

            if class = exittime then do
                hide
                address value host
                call eventparse()
            end

            if class = okay then do
                hide
                address value host
                settext event_time field
                call eventparse()
            end

        end
    end


mainhelp:
    do forever
        call waitpkt( "MAINWINPORT" )    /* Wait for a message from Varexx */
        packet = getpkt( "MAINWINPORT" )        /* Get the message */

        if packet ~= '00000000'x then do /* This is not a null message */
            class  = getarg(packet)    /* Get the information about the message */
               type = word(class, 1)
                   msg = substr(class, 12,100)
            /*say 'class =' class
            say 'msg =' msg*/        DEBUG STUFF

            if class = 'MAINHELP TRUE' then call eventparse()

            if class = getfile then call helpmessage('Calls file requester.')
            if class = timehelp then call helpmessage('Time field help gadget.')
            if class = timefields then call helpmessage('Time fields cycle gadget.')
            if class = datehelp then call helpmessage('Date field help.')
            if class = rangehelp then call helpmessage ('Time Range field help.')
            if class = datefields then call helpmessage('Date fields cycle gadget')
            if class = arg1gad then call helpmessage('Calls requester for file arguments')
            if class = arg2gad then call helpmessage('Calls requester for file arguments')
            if class = arg3gad then call helpmessage('Calls requester for file arguments')
            if class = arg4gad then call helpmessage('Calls requester for file arguments')
            if class = sfxgad then call helpmessage('Selects a sound file.')
            if class = txtgad then call helpmessage('Adds a text string.')
            if class = addevent then
                call rtezrequest("ADD AN EVENT TO THE LIST." || LF ||,
                "You MUST fill in your fields" || LF ||,
                "BEFORE pushing the ADD gadget." || LF ||,
                " ", "OKay", ,)

            if class = ac_new then call helpmessage('Creates a new s:cron.config file.')
            if class = delete_event then call helpmessage('Removes event from the list.')
            if class = edit then call helpmessage('Calls an external text editor.')
            if class = update then
                call rtezrequest("UPDATES THE SELECTED EVENT." || LF ||,
                "Select the event you wish to modify." || LF ||,
                "Make the modifications you wish." || LF ||,
                "Click the Modif gadget." || LF ||,
                " ", "OKay", ,)

            if class = testevent then call helpmessage('Tests the selected event')
            if class = purgegad then call helpmessage('Removes old, one time events.')
            if class = prefsgad then call helpmessage('Calls up the preferences window.')
            if class = end then call helpmessage('Exits editor window.')
            if class = closewindow then call helpmessage('Quits EZCron.')
/*            if class = addefault then call helpmessage('Saves selected event as default event.')*/
            if class = addefault then
                call rtezrequest("SAVES THE SELECTED (CURRENT)" || LF ||,
                "EVENT AS THE DEFAULT EVENT." || LF ||,
                " " || LF ||,
                "Whenever you select the NEW" || LF ||,
                "gadget, it always adds an event" || LF ||,
                "to the newly created list. This" || LF ||,
                "is the default event." || LF ||,
                "This may be set to a past" || LF ||,
                "date if you wish for nothing to" || LF ||,
                "take place." || LF ||,
                " ", "OKay", ,)

        end
    end

helpmessage: procedure

    call rtezrequest( arg(1),'Okay!','EZCron Online Help','rtez_flags=ezreqf_centertext',)
    return

message: procedure

    call rtezrequest( arg(1),'Okay!','EZCron ERROR','rt_reqpos = reqpos_centerscr rtez_flags=ezreqf_centertext',)
    return


/* ===== EXIT AND CLEAN UP ===== */

exiting:
    address command 'run >nil: avail flush'
    'hide unload'  /* Hide the window and unload the gui file from memory */
    call delay(15)
    call closeport( "MAINWINPORT" )  /* Close the port */
    address command 'run >nil: vxc'
exit